<<<<<<< HEAD ======= >>>>>>> 468fc49e8668fff8b001876dca5dd6dc551710af Dashboard <<<<<<< HEAD ======= >>>>>>> 468fc49e8668fff8b001876dca5dd6dc551710af <<<<<<< HEAD

Column

Private vs. Government Expenditure in Developed Countries in 2019

<<<<<<< HEAD
=======
ghed_df%>%
  # filter(country=="Canada"| country=="Japan"| country=="Republic of Korea"| country=="France"| country=="Germany"| country=="Italy"| country=="United Kingdom"| country=="United States of America")%>%
  filter(year == 2019)%>%
  select(country, year, gghed_che, pvtd_che)%>%
  mutate(sum_per = gghed_che + pvtd_che)%>%
  pivot_longer(cols = contains("che"),
               names_to = "exp_type",
               values_to = "exp_per")%>%
  mutate(exp_type = replace(exp_type, exp_type == "gghed_che", "Government Expenditure"),
         exp_type = replace(exp_type, exp_type == "pvtd_che", "Private Expenditure"))%>%
  plot_ly(x=~country, y=~exp_per, name=~exp_type, color =~exp_type, type = 'bar', colors = "viridis")%>%
  layout(yaxis = list(title = 'Percent of Total Expenditure'), xaxis = list(title = "Country",categoryorder = "total descending"), barmode = 'stack', colors = "viridis")
## Warning: Ignoring 8 observations
## Warning: 'layout' objects don't have these attributes: 'colors'
## Valid attributes include:
## '_deprecated', 'activeshape', 'annotations', 'autosize', 'autotypenumbers', 'calendar', 'clickmode', 'coloraxis', 'colorscale', 'colorway', 'computed', 'datarevision', 'dragmode', 'editrevision', 'editType', 'font', 'geo', 'grid', 'height', 'hidesources', 'hoverdistance', 'hoverlabel', 'hovermode', 'images', 'legend', 'mapbox', 'margin', 'meta', 'metasrc', 'modebar', 'newshape', 'paper_bgcolor', 'plot_bgcolor', 'polar', 'scene', 'selectdirection', 'selectionrevision', 'separators', 'shapes', 'showlegend', 'sliders', 'spikedistance', 'template', 'ternary', 'title', 'transition', 'uirevision', 'uniformtext', 'updatemenus', 'width', 'xaxis', 'yaxis', 'barmode', 'bargap', 'mapType'
>>>>>>> 468fc49e8668fff8b001876dca5dd6dc551710af

Column

Out-of-pocket spending as % of Current Health Expenditure

<<<<<<< HEAD

Social Health Insurance as % of Current Health Expenditure

=======
#developed_nations
ghed_df%>%
  filter(year==2019)%>%
  select(country, oops_che)%>%
  arrange(desc(oops_che))%>%
  plot_ly(x=~country, y=~oops_che, name=~country, color =~country, type = 'bar', colors = "viridis")%>%
  layout(yaxis = list(title = 'Out-of-pocket (OOPS) as % of Current Health Expenditure'), xaxis = list(title = "Country"), barmode = 'stack', colors = "viridis")%>%
  layout(xaxis = list(categoryorder = "total descending")) 
## Warning: Ignoring 4 observations
## Warning: 'layout' objects don't have these attributes: 'colors'
## Valid attributes include:
## '_deprecated', 'activeshape', 'annotations', 'autosize', 'autotypenumbers', 'calendar', 'clickmode', 'coloraxis', 'colorscale', 'colorway', 'computed', 'datarevision', 'dragmode', 'editrevision', 'editType', 'font', 'geo', 'grid', 'height', 'hidesources', 'hoverdistance', 'hoverlabel', 'hovermode', 'images', 'legend', 'mapbox', 'margin', 'meta', 'metasrc', 'modebar', 'newshape', 'paper_bgcolor', 'plot_bgcolor', 'polar', 'scene', 'selectdirection', 'selectionrevision', 'separators', 'shapes', 'showlegend', 'sliders', 'spikedistance', 'template', 'ternary', 'title', 'transition', 'uirevision', 'uniformtext', 'updatemenus', 'width', 'xaxis', 'yaxis', 'barmode', 'bargap', 'mapType'

Social Health Insurance as % of Current Health Expenditure

developed_nations%>%
  filter(year==2019)%>%
  select(country, shi_che)%>%
  arrange(desc(shi_che))%>%
  plot_ly(x=~country, y=~shi_che, name=~country, color =~country, type = 'bar', colors = "viridis")%>%
  layout(yaxis = list(title = 'Social Health Insurance (SHI) as % of Current Health Expenditure (CHE)'), xaxis = list(title = "Country"), barmode = 'stack', colors = "viridis")%>%
  layout(xaxis = list(categoryorder = "total descending"))
## Warning: 'layout' objects don't have these attributes: 'colors'
## Valid attributes include:
## '_deprecated', 'activeshape', 'annotations', 'autosize', 'autotypenumbers', 'calendar', 'clickmode', 'coloraxis', 'colorscale', 'colorway', 'computed', 'datarevision', 'dragmode', 'editrevision', 'editType', 'font', 'geo', 'grid', 'height', 'hidesources', 'hoverdistance', 'hoverlabel', 'hovermode', 'images', 'legend', 'mapbox', 'margin', 'meta', 'metasrc', 'modebar', 'newshape', 'paper_bgcolor', 'plot_bgcolor', 'polar', 'scene', 'selectdirection', 'selectionrevision', 'separators', 'shapes', 'showlegend', 'sliders', 'spikedistance', 'template', 'ternary', 'title', 'transition', 'uirevision', 'uniformtext', 'updatemenus', 'width', 'xaxis', 'yaxis', 'barmode', 'bargap', 'mapType'
>>>>>>> 468fc49e8668fff8b001876dca5dd6dc551710af